
open Ast

let _ =
	let lexbuf = Lexing.from_channel (open_in "test.txt") in
	let p = Parser.prog Lexer.main lexbuf in
	print_string (program_to_string p)

let _ =
	print_string "\n"
